home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
indx18eu.zip
/
HEXTEST.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-03-15
|
849b
|
38 lines
PROGRAM HexTest ;
USES
AsmRoutines ,
CRT ;
TYPE
ByteArray = ARRAY [ 1 .. 30 ]
OF BYTE ;
VAR
i : LONGINT ;
b : ByteArray ;
r : REAL ;
BEGIN
FOR i := -3 TO 3
DO
WriteLn ( i:3 , ' is ' , HexStr ( i , SizeOf ( i ) ) , ' hex.' ) ;
FOR i := 1 TO 30
DO
b [ i ] := Random ( 256 ) ; { 0 .. 255 }
WriteLn ( HexStr ( b , SizeOf ( b ) ) ) ;
r := -500.4567 ;
WriteLn ( r:10:4 , ' is equal to ' , HexStr ( r , SizeOf ( r ) ) ) ;
r := 500.4567 ;
WriteLn ( r:10:4 , ' is equal to ' , HexStr ( r , SizeOf ( r ) ) ) ;
END .